home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 3
/
Merciful_Release_3.bin
/
software
/
t
/
turbocalcv4.0.lha
/
INSTALL TURBOCALC
< prev
next >
Wrap
Text File
|
1996-11-19
|
12KB
|
425 lines
; ---------------------------------------------------------------------
;
; $VER: TurboCalc Installer Script 4.0 (12.08.96)
;
; Script to install TurboCalc (german, english, italian and french version)
;
; ---------------------------------------------------------------------
(if (<> @language "english")
((if ( AND (<> @language "deutsch")
(AND (<> @language "français") (<> @language "italiano"))
)
(set @language "english")
)
)
)
; ---------------------------------------------------------------------
;
; STRINGS (Global)
;
; ---------------------------------------------------------------------
(set #TurboCalcPattern "(TurboCalc|TCLibs)")
(set #TCSupPattern "(Toolbar|AutoOpen|Catalogs)")
(set #ProgrammerPattern "Programmer")
(set #PSFontPattern "PSFonts")
; ---------------------------------------------------------------------
;
; STRINGS (German)
;
; ---------------------------------------------------------------------
(if (= @language "deutsch")
(
(set #SourceDir "TurboCalc")
(set #TCLocalePattern "(AutoÖffnen|Lies.Mich|Inhalt)")
(set #ExamplePattern "(Tabellen#?|Tutorium|ARexx|Extras)")
(set #HelpDir "Hilfe")
(set #HelpDirOS2 "Hilfe_OS2")
(set #AutoOpenDir "AutoÖffnen" )
(set #MacroOS2Help "Tabellen3/Makro_Hilfe_mit_OS2_h.TCD" )
(set #AskDestDir
(cat "Bitte wählen Sie das Verzeichnis, in dem TurboCalc "
"installiert werden soll. "
"Es wird automatisch ein neues Verzeichnis 'TurboCalc' "
"für das Programm und die Daten angelegt." )
)
(set #AskDestDirHelp
(cat "Für die Installation werden auf dem Ziellaufwerk mindestens "
"1,5 Mbyte freier Speicherplatz benötigt.\n\n"
"Das Installationsprogramm erstellt in dem ausgewählten "
"Pfad ein neues Verzeichnis 'TurboCalc'. Alle Dateien "
"werden in dieses Verzeichnis kopiert.\n\n"
"Sie können nach der Installation dem Verzeichnis natürlich "
"einen anderen Namen geben." )
)
(set #WhichPartsPrompt
(cat "Bitte wählen Sie aus, welche der folgenden optionalen "
"Komponenten Sie installieren möchten" )
)
(set #WhichPartsHelp
(cat "Versehen Sie die Komponenten, die Sie auf Ihre Festplatte "
"installieren möchten, mit einem Haken.\n\n"
"Online-Hilfe: Installiert die AmigaGuide-Dateien zu TurboCalc "
"(empfehlenswert). Alternativ können die Dateien auch direkt "
"von der CD geladen werden.\n\n"
"PS-Fonts: Einige Postscript-Zeichensätze, die für TurboCalcs "
"Postscrip-Ausgabe verwandt werden kann.\n\n"
"Beispiele: Installiert alle Beispiele und Vorlagen\n\n" )
)
(set #WhichPart1 "Online-Hilfe")
(set #WhichPart2 "Beispiele")
(set #WhichPart3 "PS-Fonts")
(set #WhichPart4 "Programmierer-Informationen (nur in englisch)")
)
)
; ---------------------------------------------------------------------
;
; STRINGS (English)
;
; ---------------------------------------------------------------------
(if (= @language "english")
(
(set #SourceDir "TurboCalc")
(set #TCLocalePattern "(Read.Me|Contents)")
(set #ExamplePattern "(Sheets#?|Tutorial|ARexx|Extras)")
(set #HelpDir "Help")
(set #HelpDirOS2 "Help_OS2")
(set #AutoOpenDir "AutoOpen" )
(set #MacroOS2Help "Sheets3/Macro_Help_for_OS2_b.TCD" )
(set #AskDestDir
(cat "Please choose the destination directory for the TurboCalc "
"software package. "
"A new directory named 'TurboCalc' will be created automatically." )
)
(set #AskDestDirHelp
(cat "To install TurboCalc, you will need at least 1.5 Megabytes "
"on the destination device.\n\n"
"The Installer will automatically create a new directory "
"'TurboCalc' in the selected path. All files will be copied to "
"this directory.\n\n"
"If you wish, you can rename the directory after the installation." )
)
(set #WhichPartsPrompt
(cat "Please choose from the list below which optional "
"parts you want to install:" )
)
(set #WhichPartsHelp
(cat "Mark the parts you want to install on your system:\n\n"
"Online-Help: Installs TurboCalc's AmigaGuide files "
"(recommended). (It is also possible to advice TurboCalc "
"to load the files directly from CD.)\n\n"
"PS-Fonts: Some PostScript fonts which can be used with "
"TurboCalc's PostScript output.\n\n"
"Examples: Installs all Examples and templates\n\n" )
)
(set #WhichPart1 "Online-Help")
(set #WhichPart2 "Examples")
(set #WhichPart3 "PS-Fonts")
(set #WhichPart4 "Programmer Information")
)
)
; ---------------------------------------------------------------------
;
; STRINGS (Italian)
;
; ---------------------------------------------------------------------
(if (= @language "italiano")
(
(set #SourceDir "TurboCalc")
(set #TCLocalePattern "(ApriSubito|Leggimi|Contenuto)")
(set #ExamplePattern "(Fogli#?|Corso|ARexx|Extras)")
(set #HelpDir "Aiuto")
(set #HelpDirOS2 "Aiuto_OS2")
(set #AutoOpenDir "ApriSubito" )
(set #MacroOS2Help "Fogli3/Macro_Aiuto_OS2_b.TCD" )
(set #AskDestDir
(cat "Scegli la directory dove vuoi installare il pacchetto software "
"TurboCalc. "
"Lì sarà creata automaticamente una nuova directory 'TurboCalc'." )
)
(set #AskDestDirHelp
(cat "Per installare TurboCalc, devi avere almeno 1.5 Mbyte "
"sul dispositivo di destinazione.\n\n"
"Il programma Installer creerà automaticamente una nuova directory "
"'TurboCalc' nel percorso selezionato. Tutti i file saranno copiati "
"in tale directory.\n\n"
"Puoi anche cambiare il nome della directory dopo l'installazione." )
)
(set #WhichPartsPrompt
(cat "Scegli dall'elenco qui sotto quali parti opzionali "
"desideri installare:" )
)
(set #WhichPartsHelp
(cat "Indica le parti che vuoi installare sul tuo sistema:\n\n"
"Aiuto in linea: per installare i file AmigaGuide di TurboCalc "
"(raccomandato). E' anche possibile far sì che TurboCalc "
"carichi tali file direttamente da CD.\n\n"
"Caratteri PS: alcune famiglie caratteri PostScript da usare "
"per l'uscita di stampa PostScript di TurboCalc.\n\n"
"Esempi: per installare i file di esempio e i modelli\n\n" )
)
(set #WhichPart1 "Aiuto in linea")
(set #WhichPart2 "Esempi")
(set #WhichPart3 "Caratteri PS")
(set #WhichPart4 "Informazioni per programmatori (solo in Inglese)")
)
)
; ---------------------------------------------------------------------
;
; STRINGS (French)
;
; ---------------------------------------------------------------------
(if (= @language "français")
(
(set #SourceDir "TurboCalc")
(set #TCLocalePattern "(OuvertureAuto|Lisez.moi|Contenu)")
(set #ExamplePattern "(Feuilles#?|Tutoriel|ARexx|Extras)")
(set #HelpDir "Aide")
(set #HelpDirOS2 "Aide_OS2")
(set #AutoOpenDir "OuvertureAuto" )
(set #MacroOS2Help "Feuilles3/Macro_Aide_sous_OS2_h.TCD" )
(set #AskDestDir
(cat "Veuillez choisir le répertoire dans lequel vous désirez "
"installer TurboCalc. "
"Le sous-répertoire 'TurboCalc', qui contiendra le programme "
"et d´autres fichiers, sera automatiquement créé." )
)
(set #AskDestDirHelp
(cat "Vous devez disposer d´une capacité de 1,5 Moctets sur l´unité choisie "
"pour installer TurboCalc.\n\n"
"Le programme d´installation crée un sous-répertoire ´TurboCalc´ "
"dans le répertoire choisi et copie tous les fichiers de TurboCalc "
"dans ce répertoire.\n\n"
"Vous pouvez bien sûr renommer ce répertoire après l´installation. "
)
)
(set #WhichPartsPrompt
(cat "Veuillez choisir parmi la liste ci-dessous les éléments facultatifs "
"que vous désirez installer :" )
)
(set #WhichPartsHelp
(cat "Cochez les éléments que vous désirez installer sur votre système :\n\n"
"Aide en ligne : installe les fichiers AmigaGuide de TurboCalc "
"(recommandé). (Il est également possible de demander à TurboCalc "
"de rechercher ces fichiers directement sur le CD-ROM.)\n\n"
"Polices PS : quelques polices PostScript qui peuvent être utilisées "
"pour les sorties PostScript de TurboCalc.\n\n"
"Exemples : installe tous les exemples et gabarits.\n\n" )
)
(set #WhichPart1 "Aide en ligne")
(set #WhichPart2 "Exemples")
(set #WhichPart3 "Police PS")
(set #WhichPart4 "Programmer Information (en anglais uniquement)")
)
)
; ---------------------------------------------------------------------
;
; INSTALLATION SCRIPT - BEGIN
;
; ---------------------------------------------------------------------
;*** get OS version
(set #osversion 3)
(if (< (/ (getversion) 65536) 39) (set #osversion 2) )
(if (< (/ (getversion) 65536) 36) (set #osversion 1) )
;**** ask user where to put TurboCalc
(set DestDir
(askdir
(prompt #AskDestDir )
(help #AskDestDirHelp )
(default "Work:")
)
)
;**** ask user which parts to copy (expert only)
(complete 3)
(set whichparts 7) ; default: Part1 - Part3, not Part4
(if (> @user-level 1)
(
(set whichparts
(askoptions
(prompt #WhichPartsPrompt)
(help #WhichPartsHelp)
(choices #WhichPart1 #WhichPart2 #WhichPart3 #WhichPart4)
(default whichparts)
)
)
)
) ; if (userlevel)
(set installhelp (IN whichparts 0))
(set installexamples (IN whichparts 1))
(set installpsfonts (IN whichparts 2))
(set installprogrammer (IN whichparts 3))
;****
(set RealDest (tackon DestDir "TurboCalc"))
(set RealDest_Help (tackon RealDest #HelpDir))
(if (= (exists RealDest) 0)
(makedir RealDest (infos))
)
; *** copy main programm
(complete 5)
(copyfiles
(source #SourceDir)
(dest RealDest)
(pattern #TurboCalcPattern)
(infos)
)
(complete 20)
(copyfiles
(source #SourceDir)
(dest RealDest)
(pattern #TCSupPattern)
(infos)
)
(complete 30)
(copyfiles
(source #SourceDir)
(dest RealDest)
(pattern #TCLocalePattern)
(infos)
)
; *** copy help files
(complete 40)
(if installhelp
(
(if (= (exists RealDest_Help) 0)
(makedir RealDest_Help (infos))
)
(copyfiles
(source (tackon #SourceDir
(if (>= #osversion 3) (#HelpDir) (#HelpDirOS2))
))
(dest RealDest_Help)
(all)
(infos)
)
; *** copy "help with os2" automacro to autoopen drawer
(if (< #osversion 3)
(
(copyfiles
(source (tackon #SourceDir #MacroOS2Help))
(dest (tackon RealDest #AutoOpenDir))
)
)
) ; if os2
)
) ; if (installhelp)
; *** copy example files
(complete 60)
(if installexamples
(
(copyfiles
(source #SourceDir)
(dest RealDest)
(pattern #ExamplePattern)
(infos)
(optional "nofail")
)
)
) ; if (installexamples)
; *** copy ps files
(complete 70)
(if installpsfonts
(
(copyfiles
(source #SourceDir)
(dest RealDest)
(pattern #PSFontPattern)
(infos)
(optional "nofail")
)
)
) ; if (installpsfonts)
; *** copy programmer files
(complete 85)
(if installprogrammer
(
(copyfiles
(source #SourceDir)
(dest RealDest)
(pattern #ProgrammerPattern)
(infos)
)
)
) ; if (installprogrammer)
; *** copy newtopaz font to FONTS:
(complete 95)
(copyfiles
(source ":Fonts")
(dest "FONTS:")
(all) (fonts)
(optional "nofail")
)
(set @default-dest RealDest)
(complete 100)
; ---------------------------------------------------------------------
;
; INSTALLATION SCRIPT - END
;
; ---------------------------------------------------------------------